DIM hShortArray AS Short[]
DIM anInteger AS Integer

FOR EACH anInteger IN hShortArray
  ...
NEXT

Enumerates each element stored in the array.